home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Book / abrasionaxis.lsp < prev    next >
Text File  |  1990-10-11  |  727b  |  20 lines
  1. ; book p.321
  2.  
  3. (require "data/tutorial")
  4. (require "functions/rotatecoordaxis")
  5.  
  6. (flet ((width (c) (first (send c :size))))
  7.   (let* ((w (spin-plot (list hardness tensile-strength abrasion-loss)))
  8.          (c0 (send spin-rotate-control-proto :new 0))
  9.          (c1 (send spin-rotate-control-proto :new 1))
  10.          (c2 (send spin-rotate-control-proto :new 2)))
  11.     (send w :add-overlay c0)
  12.     (send w :add-overlay c1)
  13.     (send w :add-overlay c2)
  14.     (let ((width (max (mapcar #'width (list c0 c1 c2))))
  15.           (height (second (send c0 :size)))
  16.           (margin (send w :margin)))
  17.        (send c1 :location (list 0 height))
  18.        (send c2 :location (list 0 (* 2 height)))
  19.        (send w :margin width 0 0 (fourth margin)))))
  20.